x <- c(151, 174, 138, 186, 128, 136, 179, 163, 152, 131)
y <- c(63, 81, 56, 91, 47, 57, 76, 72, 62, 48)
relation <- lm(y~x)
survey <- summary(relation)
print(survey)

a <- data.frame(x=170)
result <- predict(relation,a)
print(result)
png(file='relation.png')
plot(x,y,col='blue',main='BMI',
     abline(lm(x~y)),
     cex=1.3,pch=16,
     xlab='Weight(Kg)',
     ylab='Height(Cm)',
)
dev.off()
